home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Defrag on Boot.xpl < prev    next >
Text File  |  2001-01-21  |  2KB  |  61 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH 1"="Startup/Shutdown\Startup\Run on Next Boot"
  5. "NAME"="Run Defrag on Next Boot"
  6. "OSVERSION"="10101"
  7. "VERSION"="1.18"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Run Defrag on Next Boot"
  10. "DESCRIPTION 1"="Often the Defrag operation is continuously interrupted by other disk/program activity."
  11. "DESCRIPTION 2"="Checking the box will cause Defrag to start on Bootup; if Defrag is not desired on boot, it may be stopped after boot."
  12. "DESCRIPTION 3"="NOTE: This plugin is designed to run only on the next restart; whenever you want to run Defrag on boot, re-apply the plugin." 
  13. "AUTHOR"="Ojatex@aol.com"
  14. "CONTACTURL"="http://members.aol.com/ojatex/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17.  
  18. sp2="HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Defrag\Settings\"
  19. sP="HKLM\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce\"
  20. sV1="Defrag\"
  21. v="Title" 'Stg
  22. v1="Flags" 'Dwrd
  23. v2="Cmd" 'Stg
  24. v3="DisableScreenSaver"
  25. v4="@"
  26.  
  27. Sub Plugin_Initialize  
  28. End Sub
  29.  
  30.  
  31. Sub Plugin_CheckData(ElementIndex)
  32. End Sub
  33.  
  34. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  35.  
  36.   if ElementIndex=1 then
  37.      Call RegWriteValue(sP&v,"Defrag at Startup",1)
  38.      Call RegWriteValue(sP&v1,"3",2)
  39.  
  40.      if GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  41.         Call RegWriteValue(sp&sv1&v2,"DEFRAG.EXE /ALL",1)
  42.      else
  43.         'NT/W2K
  44.         Call RegWriteValue(sp&sv1&v2,"dfrg.msc /ALL",1)
  45.      end if
  46.  
  47.  
  48.      Call RegWriteValue(sP2&v3,"Yes",1)
  49.      Call RegWriteValue(sp2&v4,"Yes",1)
  50.  
  51.      Call Restart()
  52.   end if
  53. End Sub
  54.  
  55. Sub Plugin_Terminate 
  56. End Sub
  57.  
  58.  
  59.  
  60.  
  61.